
   4 CLEAR ;CY=0;PRINT "  LASER=0 / SUB LASER=1";A=KP;A=A-48;IF (A<0)+(A>1)GOTO 4
   5 CLEAR ;BOX -1,0,121,61,3;FOR Z=1TO 50
   6 X=RND (160)-81;Y=RND (84)-42;IF PX(X,Y)GOTO 6
   7 MU=RND (20);BOX X,Y,1,1,3;NEXT Z;S=0;W=255;GOTO 15
   8 BOX D,E,3,3,1;BOX D,E,3,1,2;BOX D,E,1,3,3;RETURN 
   9 BOX B,C,3,1,1;BOX B,C,1,3,1;RETURN 
  15 NT=1;BC=0;FC=151;BOX -1,0,121,61,2;X=25-RND (3)×3;FOR Y=XTO X-36STEP -18;MU=16;BOX -1,Y,121,1,1;NEXT Y
  20 BOX -1,31,121,1,1;BOX -1,-29,121,1,1;FOR X=-61TO 59STEP 15;MU=16;LINE X,30,4=XY;LINE X,-28,1;Y=X+11;BOX Y,19,5,7,2
  25 MU=5;BOX Y,-17,5,7,2;MU=9;BOX Y-6,1,5,7,2;NEXT X;FOR X=-46TO 44STEP 15
  30 U=RND (9)×3+(-29);IF PX(X+1,U)GOTO 30
  40 V=31-RND (9)×3;IF PX(X+1,V)GOTO 40
  45 BOX X,U,1,3,2;MU=14;BOX X,V,1,3,2;MU=16;NEXT X;C=10;E=-11;B=-55;D=53;R=3;N=0;M=0;U=0;V=0;T=1;GOSUB 300
  55 T=2;GOSUB 300;CY=40;PRINT "#1     PLAYER SCORE     #2";@(1)=1000;@(2)=1000;GOSUB 100;IF A R=1
  60 F=3×JX(1);G=3×JY(1);IF PX(B+F,C+G)+U T=1;GOSUB 300;V=0;GOTO 70
  65 B=B+F;C=C+G;LINE B,C,4=XY;Q=XY;P=1;IF TR(1)GOSUB 500;BOX B,C,3,3,2;IF M=10M=0;U=1;GOSUB 98;GOTO 60
  70 H=3×JX(2);J=3×JY(2);IF PX(D+H,E+J)+V T=2;GOSUB 300;U=0;GOTO 80
  75 D=D+H;E=E+J;LINE D,E,4=XY;Q=XY;P=2;IF TR(2)GOSUB 550;BOX D,E,3,3,2;IF N=10N=0;V=1;GOSUB 98;GOTO 70
  80 BOX 0,-36,85,8,2;GOTO 60
  95 @(P)=@(P)+200;&(23)=0;BC=80;FOR Z=115TO 0STEP -1;&(19)=Z;&(21)=Z;BOX K,L,RND (3),RND (3),3;NEXT Z
  96 CY=L;CX=K;PRINT "*";BOX K-1,L,3,3,2;&(21)=W;BOX K,L,6,6,2;FOR Z=WTO 0STEP -3;BC=FC;MU=O;&(23)=Z;BC=80;NEXT Z;GOSUB 100
  97 &(21)=0;CY=2;CX=-48;PRINT "CRAFT#",#1,3-P," DESTROYED";IF KPGOTO 15
  98 CY=-36;CX=-32;PRINT "PLY#",#1,P," RELOAD";RETURN 
 100 CY=36;CX=-65;PRINT #1,@(1);CY=36;CX=38;PRINT #1,@(2);RETURN 
 300 IF V=0IF U=0S=S+1;@(T)=@(T)-5
 305 IF T=1GOSUB 9
 310 IF T=2GOSUB 8
 320 FOR Z=150TO 0STEP -50;&(21)=Z;&(23)=Z;&(19)=Z;NEXT Z;BOX B,C,3,3,2;BOX D,E,3,3,2;IF S=10S=0;GOSUB 100
 325 RETURN 
 500 &(23)=W;&(21)=150;X=B;Y=C;M=M+1;GOSUB 9;IF AGOTO 610
 510 X=X+F;Y=Y+G;IF PX(X,Y)=0GOTO 510
 520 K=D;L=E;X=X-F;Y=Y-G;GOTO 600
 550 &(23)=W;&(21)=150;X=D;Y=E;N=N+1;GOSUB 8;IF AGOTO 650
 560 X=X+H;Y=Y+J;IF PX(X,Y)=0GOTO 560
 570 K=B;L=C;X=X-H;Y=Y-J
 600 @(P)=@(P)-10;&(21)=W;LINE X,Y,R;IF PX(K,L)GOSUB 7+P;LINE K,L,2;GOTO 95
 605 XY=Q;LINE X,Y,2;&(21)=0;RETURN 
 610 XY=Q;X=X+F;Y=Y+G;IF PX(X,Y)=0MU=16;LINE X,Y,3;GOTO 610
 620 GOTO 520
 650 XY=Q;X=X+H;Y=Y+J;IF PX(X,Y)=0MU=16;LINE X,Y,3;GOTO 650
 660 GOTO 570
:RETURN ;RUN 
>